如何让打开excel时只有启动宏才能显示重要的工作表

wahz00 · 发表于 2012-2-17 00:12

能不能让打开excel时自动启动宏，或是只有启运宏才能编辑表，看到论坛上有人说，可以隐藏表，只有启动宏才显示重要的工作表，请问如何实现，帮帮忙，谢谢！本人不懂VBA请高手帮帮忙，给一下详细的操作说明，万心感谢！谢谢！

LangQueS · 发表于 2012-2-17 00:18

参考：

[分享]★链接目录★ http://club.excelhome.net/thread-303287-1-1.html

wahz00 · 发表于 2012-2-17 00:36

LangQueS 发表于 2012-2-17 00:18
参考：

[分享]★链接目录★ http://club.excelhome.net/thread-303287-1-1.html

看不太明白，版主能给一下代码和详细的说明给我一下吗，不懂VBA请见谅帮帮忙！

wahz00 · 发表于 2012-2-17 00:39

LangQueS 发表于 2012-2-17 00:18
参考：

[分享]★链接目录★ http://club.excelhome.net/thread-303287-1-1.html

只要一个工作表做一下说明需要启动宏才能显示其他工作表，当启动了宏就自启把其他工作表显示出来就好了，谢谢了！

xsy我可以很好 · 发表于 2012-2-17 08:35

本帖最后由 xsy我可以很好于 2012-2-17 08:38 编辑

Public sht As Worksheet
Private Sub Workbook_Open() '打开工作表事件

For Each sht In ThisWorkbook.Sheets '显示工作表

      If sht.CodeName <> "" Then

         sht.Visible = xlSheetVisible
   Sheet1.Visible = xlSheetVisible
      End If
Next

ActiveSheet.Unprotect  '解密
Application.Visible = False '屏蔽主窗口
UserForm1.Show (0) '显示窗体

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭工作表事件

Sheet1.Visible = True
For Each sht In ThisWorkbook.Sheets '隐藏工作表
      If sht.CodeName <> "sheet1" Then
         sht.Visible = xlSheetVeryHidden
      Sheet1.Visible = xlSheetVisible
      End If
Next

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) '关闭窗体事件
  Sheet1.Visible = True
  Sheet1.Range("A1") = "请把宏安全性设置为“中”，打开时请“启用宏”！"

Application.Quit '关闭本工作表
End Sub

wahz00 · 发表于 2012-2-17 10:14

楼上的我试了一下提示错误，我把工作表贴上来，麻烦高手帮忙处理一下，谢谢！

xsy我可以很好 · 发表于 2012-2-17 22:00

wahz00 发表于 2012-2-17 10:14
楼上的我试了一下提示错误，我把工作表贴上来，麻烦高手帮忙处理一下，谢谢！

你再试试看

工作簿5.rar (11.37 KB, 下载次数: 410)

gold_bless · 发表于 2014-12-22 16:05

xsy我可以很好发表于 2012-2-17 22:00
你再试试看

很好用，谢谢了！

VB8154 · 发表于 2018-7-9 20:28

请问，如何打开excel表格时，自动启用宏，或者是打开excel表格后才能看到表格内容

		自动登录	找回密码
密码			免费注册

[已解决] 如何让打开excel时只有启动宏才能显示重要的工作表