vba自动excel文件保存(vba关闭excel自动保存)

1. vba关闭excel自动保存

如果不是所有的excel文件都无法保存，只是某个特定的表格可编辑不能保存，暂不管什么原因，解决的办法有许多，列举几个：第一，原始文件打开后，先另存为符合现用版本的excel文件簿格式，（不带宏，vba,）编辑后可否正常保存。

第二，复制关键工作表到新工作簿，必要的话，复制全部。新工作簿保存。

三，直接复制所有数据到新建的一个工作簿，如不需原始运算方式，只复制粘贴数值。

2. excel保存自动关闭怎么解决

1、首先，把鼠标光标移动到任务栏的空白处，再点击右键。

2、然后，在弹出的菜单列表中点击选择任务管理器进入。

3、接着，在打开的任务管理器中找到无法正常关闭的Excel表格。

4、最后，点选无法正常关闭的Excel工作表，再点击右下角的结束任务，或者右键单击无法正常关闭的Excel工作表，再点击结束任务即可。

3. vba关闭excel文件并保存

1、打开Excel 2003或2007或2010或2013完整版版本。

4. excel保存直接关闭

试试以下几种方法：

1、使用“另存为”的功能，保存时，将类型选定为“Miscosoft Office Excel工作簿”。

2、在工具－选项－保存－设置里自动恢复文件保存位置写入 C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\

3、在工具－选项－常规－默认文件位置设置为C:\My Documents4、使用修复功能5、以上都不行，就只能重装了

5. vba关闭excel并保存

您好，以下代码请放到用户窗体的 Terminate 事件中：以上代码中的 “ThisWorkbook.Saved = True” 语句可以防止在关闭 Excel 时弹出形如下面的对话框：这个请视具体情况自行修改。

6. vba 自动保存

以下代码基本满足了你的要求，还有个别简单细节你自己完善吧：

Dim Bo As Boolean Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If Sheets("用户管理").Range("I2").Value = 1 Then

If Bo = False Then

MsgBox "该文件不允许直接保存，只能在关闭时另存为……"

Cancel = True

End If

ElseIf Sheets("用户管理").Range("I2").Value = 2 Then

Else

MsgBox "该文件不允许保存!"

Cancel = True

End If

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim PaFi$

If Sheets("用户管理").Range("I2").Value = 1 Then

If MsgBox("本文档无法保存，是否“另存为……”其他文件？", vbYesNo) = vbYes Then

PaFi = Application.GetSaveAsFilename(fileFilter:="启用宏的工作簿文件, *.xlsm")

If PaFi <> "" Then

Bo = True

Me.SaveAs PaFi

End If

Else

Me.Saved = True

End If

ElseIf Sheets("用户管理").Range("I2").Value = 2 Then

ThisWorkbook.Save

Else

Me.Saved = True

End If

End Sub

7. VBA自动保存

工具---选项---维护---存储文件夹.在这里面改。

打开outlook，点工具，再点工具下面的选项，在打开的窗口中点维护，在弹出的窗口中点存储文件夹，然后在里面改就行了呀

8. vba 关闭并保存

在宏里面设置一个全局变量，在函数里面对全局变量设置有效跟无效，并判定执行 dim mysave BooleanPrivate Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)call mysavesub '调用函数确认保存密码if mysave = false then '如果布尔类型mysave=false 则不能保存 msgbox "本工作薄禁用保存及另存。" Cancel = Trueend ifEnd Sub public sub mysavesub()psw = "123456" '保存密码if inputbox("请输入保存密码:) = psw then mysave = true '临时设置 为可以保存end if end sub