今天装修百科网给各位分享解锁文件标题怎么设置的知识，其中也会对word文件每一页一个标题一张图片 怎么批量只设置文字有大纲级别不 将图片设置上进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在我们开始吧！

word文件每一页一个标题一张图片 怎么批量只设置文字有大纲级别不 将图片设置上

可以把标题设置为页眉；设置页眉的方法如下：
打开一个word文档，在菜单栏里点击“视图”，在弹出的对话框中选择“页眉和页脚”，点击
这时在word文档中出现了页眉和页脚编辑窗口，点进去，当光标闪烁时就可以象编辑文档一样进行编辑了
页眉编辑：在这里输入标题。
设置完后关闭页眉编辑条
再点击保存，标题就可以在每一页显示了。

急！word文档正处于锁定状态怎么办

Word文档正处于锁定状态的解决办法：

工具/原料：Word文档，电脑

1、Word文档处于锁定状态时，首先关闭文档。

2、然后选择新建一个word文档。

3、接着点击插入，然后点击文件。

然后选择“被锁定的文档”，点击确定。

最后完成，新的Word就可以编辑了。

word属性里的标题如何更改

1、打开我们要添加必要属性的word文档，然后在顶部菜单栏中找到“插入”菜单，并在其子菜单中找到“文档部件”选项功能。

2、找到文档部件后，我们单击其旁边的折叠按钮以打开子菜单，并在子菜单中找到“文档属性”选项菜单。

3、在文档属性菜单中打开其子菜单，可以看到子菜单包含公共属性信息，如作者，标题，状态，关键字和其他属性。

4、我们点击这些文件属性，点击它会自动在文件中插入相应的属性模块，我们点击文件中的这些模块，即可输入我们的文件属性信息。

5、当然，以这种方式添加文档属性将在文档中留下额外的文本信息。如果我们不希望这些属性信息显示在文档中，我们可以在编辑属性信息后删除这些属性模块。

6、除了这种方法，我们还可以点击顶部菜单栏中的“文件”菜单，在其子菜单中找到“信息”选项。

7、在信息菜单中，我们可以发现文档的属性信息都在这里。我们想要添加或修改哪些信息，我们可以通过单击相应的选项进行编辑。

8、编辑完成后，我们可以保存文档，这些文档属性将自动保存。我们右键单击文档属性，选择详细信息选项栏，您可以找到我们之前添加的属性信息。

9、当然，如果我们不想要这些文档属性信息，我们可以直接在文档属性的详细信息中删除这些文档属性信息。

WPS文字怎样快速设置标题格式

Excel中 被锁定的单元格如何解锁？

方法一：

1.首先，利用Excel快捷键"Ctrl + A"全选所以的单元格，然后，右键选择“设置单元格格式”。

2.在弹出的“单元格格式”中选择“保护”，取消“锁定”前面的钩去掉。

方法二：

1.打开文件。

2.工具---宏----录制新宏---输入名字，如“aa”。

3.停止录制(这样得到一个空宏)。

4.工具---宏----宏,选“aa”,点编辑按钮。

5.删除窗口中的所有字符,替换为下面的内容:

Option Explicit

Public Sub AllInternalPasswords()

' Breaks worksheet and workbook structure passwords. Bob McCormick

' probably originator of base code algorithm modified for coverage

' of workbook structure / windows passwords and for multiple passwords

'

' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1)

' Modified 2003-Apr-04 by JEM: All msgs to constants, and

' eliminate one Exit Sub (Version 1.1.1)

' Reveals hashed passwords NOT original passwords

Const DBLSPACE As String = vbNewLine & vbNewLine

Const AUTHORS As String = DBLSPACE & vbNewLine & _

"Adapted from Bob McCormick base code by" & _

"Norman Harker and JE McGimpsey"

Const HEADER As String = "AllInternalPasswords User Message"

Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04"

Const REPBACK As String = DBLSPACE & "Please report failure " & _

"to the microsoft****lic.excel****gramming newsgroup."

Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _

"now be free of all password protection, so make sure you:" & _

DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _

DBLSPACE & "BACKUP!, BACKUP!!, BACKUP!!!" & _

DBLSPACE & "Also, remember that the password was " & _

"put there for a reason. Don't stuff up crucial formulas " & _

"or data." & DBLSPACE & "Access and use of some data " & _

"may be an offense. If in doubt, don't."

Const MSGNOPWORDS1 As String = "There were no passwords on " & _

"sheets, or workbook structure or windows." & AUTHORS & VERSION

Const MSGNOPWORDS2 As String = "There was no protection to " & _

"workbook structure or windows." & DBLSPACE & _

"Proceeding to unprotect sheets." & AUTHORS & VERSION

Const MSGTAKETIME As String = "After pressing OK button this " & _

"will take some time." & DBLSPACE & "Amount of time " & _

"depends on how many different passwords, the " & _

"passwords, and your computer's specification." & DBLSPACE & _

"Just be patient! Make me a coffee!" & AUTHORS & VERSION

Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _

"Structure or Windows Password set." & DBLSPACE & _

"The password found was: " & DBLSPACE & "$$" & DBLSPACE & _

"Note it down for potential future use in other workbooks by " & _

"the same person who set this password." & DBLSPACE & _

"Now to check and clear other passwords." & AUTHORS & VERSION

Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _

"password set." & DBLSPACE & "The password found was: " & _

DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _

"future use in other workbooks by same person who " & _

"set this password." & DBLSPACE & "Now to check and clear " & _

"other passwords." & AUTHORS & VERSION

Const MSGONLYONE As String = "Only structure / windows " & _

"protected with the password that was just found." & _

ALLCLEAR & AUTHORS & VERSION & REPBACK

Dim w1 As Worksheet, w2 As Worksheet

Dim i As Integer, j As Integer, k As Integer, l As Integer

Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer

Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer

Dim PWord1 As String

Dim ShTag As Boolean, WinTag As Boolean

Application.ScreenUpdating = False

With ActiveWorkbook

WinTag = .ProtectStructure Or .ProtectWindows

End With

ShTag = False

For Each w1 In Worksheets

ShTag = ShTag Or w1.ProtectContents

Next w1

If Not ShTag And Not WinTag Then

MsgBox MSGNOPWORDS1, vbInformation, HEADER

Exit Sub

End If

MsgBox MSGTAKETIME, vbInformation, HEADER

If Not WinTag Then

MsgBox MSGNOPWORDS2, vbInformation, HEADER

Else

On Error Resume Next

Do 'dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

With ActiveWorkbook

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _

Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If .ProtectStructure = False And _

.ProtectWindows = False Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND1, _

"$$", PWord1), vbInformation, HEADER

Exit Do 'Bypass all for...nexts

End If

End With

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

If WinTag And Not ShTag Then

MsgBox MSGONLYONE, vbInformation, HEADER

Exit Sub

End If

On Error Resume Next

For Each w1 In Worksheets

'Attempt clearance with PWord1

w1.Unprotect PWord1

Next w1

On Error GoTo 0

ShTag = False

For Each w1 In Worksheets

'Checks for all clear ShTag triggered to 1 if not.

ShTag = ShTag Or w1.ProtectContents

Next w1

If ShTag Then

For Each w1 In Worksheets

With w1

If .ProtectContents Then

On Error Resume Next

Do 'Dummy do loop

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

If Not .ProtectContents Then

PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _

Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

MsgBox Application.Substitute(MSGPWORDFOUND2, _

"$$", PWord1), vbInformation, HEADER

'leverage finding Pword by trying on other sheets

For Each w2 In Worksheets

w2.Unprotect PWord1

Next w2

Exit Do 'Bypass all for...nexts

End If

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

Loop Until True

On Error GoTo 0

End If

End With

Next w1

End If

MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADER

End Sub

6.关闭编辑窗口。

7.工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定即可完成操作。