excel2003文档格式(Excel2003表格)

1. Excel2003表格

excel升级版本方法

1.可以找个有高版本的电脑,另存为低版本的,再发给你自己,就可以打开了。

2.安装兼容包, Office套件里,2007版以前为旧版,2007版以后为新版。 比如Excel,旧版为xls格式,新版为xlsx格式。 要用旧版应用打开新版文件,只需要在网上下载相应的兼容补丁安装后即可实现

3.下载安装最新版本,重新下载安装 Office 2007或Office2010。

2. excel2003表格加密怎么操作

那么怎么给Excel设置密码呢？我们一起来看看吧：

方法如下：

一、找到你想要设置密码的Excel表格，点击文件菜单，选择“另存为”：

二、弹出文件框后，在右下角找到“工具（L）”并下拉选择“常规选择（G）”：

三、此时会弹出一个小方框，在“打开权限密码”“修改权限密码”里写下想要设置的密码（两处密码可以不一样，知晓权限密码的人能观看Excel表格但不能更改表格内容），设置完成后点击“确定”：

四、设置完成后需要二次确认密码，第一次输入的密码为【打开权限密码】，第二次输入的密码为【修改权限密码】。确认无误后，点击“确定”保存密码：

五、问题“文件已存在是否要替换它”，选择“是”：

六、这样就完成Excel表格的密码设置了，保险起见，关闭Excel表格再次打开检查是否设置密码完成。如果有弹出录入密码的提示，则表示密码设置成功。

3. excel2003表格恢复历史记录

EXCEL表打开后不显示底下的sheet1，可在选项“高级”中设置显示出来。具体的方法步骤如下：

1、打开需要操作的EXCEL表格，点击左上角的“文件”。

2、在左侧导航栏选择“选项”。

3、点击左侧的“高级”，在右侧找到“此工作簿的显示选项”勾选下面的“显示工作表标签”即可。

4、返回EXCEL表格，发现下面的“Sheet1”等标签页已成功恢复显示。

4. excel2003表格打印怎么设置成一张纸

在打印设置里，调整为一页。具体步骤：

1、打开EXCEL表格。

2、注意所指虚线，就是当前可打印的范围。超出虚线范围的就会打印另一页上。

3、为了演示，复制粘贴一次，扩大范围。

4、扩大后去打印预览。可以看到，没有全部打印在一页上，复制的只显示了，在原虚线范围内的内容。

5、原因就在设置的最下方，无缩放。

6、点选，将工作表调整为一页。

7、这样即可打印在一页上了。

5. excel2003表格怎么查找重复名字

选择需要替换的单元格，输入1或其他相同的字符，然后按Ctrl+Enter组合键，实现快速全部替换。

6. excel2003表格制作教程入门

是这样excel本身就是表格，你可以在第一行定义下通讯录的各个名称

7. excel2003表格高度设置厘米

把Excel表格插入Word中：

1.把Excel表格插入Word文档中 在Excel中选中表格并“复制”，在Word文档的表格插入点单击后“粘贴”即可。 假如希望插入Word中的表格数据随着Excel表格数据的修改而变化，可以在粘贴的表格右下角“粘贴选项”中选择“匹配目标区域单元格样式并链接到Excel”或者“保留源格式并链接到Excel”命令。

2.把Excel表格插入Word文档已有的表格中 在Excel中选中表格的数据区域并“复制”，在Word表格中选中区域大小相同的表格并“粘贴”。 把EXCEL表格，插入到PPT中： 1.把表格或表格的一部分复制到PPT 在Excel中选中数据区域或表格并“复制”，在PPT中“粘贴”即可。 2.在PPT中粘贴的表格数据随着Excel表格数据的修改而变化 打开保存数据的工作簿，激活要插入PPT的工作表，在PPT中执行“插入/对象/由文件创建”操作，单击“浏览”按钮在打开的对话框中找到并选中文件后单击“确定”返回“插入”对话框，选中“链接”后“确定”即可。 直接点‘插入’－‘对象’－选择文件就可以把excel表放进去，还可以直接在word里编辑表格。 本操作在Office2003中完成。

8. excel2003表格打开后灰色

出现这个问题可能有以下原因：

一是从打印预览界面打开了“页面设置”对话框。

如在Excel 2003/2007的打印预览界面中单击“设置（或页面设置）→工作表”，“打印标题”和“打印区域”设置区域就是灰色的。

在Excel 2010中，选择“文件→打印”后，在Backstage视图的底部单击“页面设置→工作表”也会出现这种情况。

这时，只需关闭打印预览返回工作表界面，单击菜单“文件→打印设置”（Excel 2003）或选择“页面布局→打印标题”（Excel 2007/2010）即可。

二是同时选择了多个工作表。如果按住Ctrl键或Shift键选择了多个工作表，这些工作表就形成了一个工作组，在Excel窗口的标题行可以看到“[工作组]”字样。由于Excel无法对工作组设置打印区域或打印标题，可取消工作组后选择所需的工作表再进行设置

9. excel2003表格密码怎么取消密码

EXCEL工作表保护密码破解

方法:

1\打开文件

2\工具---宏----录制新宏---输入名字如:aa

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

4\工具---宏----宏,选aa,点编辑按钮

5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)

6\关闭编辑窗口

7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!

内容如下：

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.public.excel.programming 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