[發問] 為何各sheets 被隱藏了

請教大大:
      晚學有問題三，敬請賜教
一.VBA如何下與法，使A1.xls內的所有sheets隱藏
且取消隱藏需password
二.奇怪個人學淺找不出原因
Application.Visible=False
FileName = ThisWorkbook.Path & "\資料庫\" & str1 & "學期資料.xls"
If fsobj.FileExists(FileName) Then
      With CreateObject(FileName)
         .Sheets(SHname).Cells.Copy wb.Sheets("Temp").Cells(1, 1)
         .Close True
      End With
End If
當 application.quit 後，FileName之各sheets  沒有被隱藏
但
Application.Visible=False
FileName = ThisWorkbook.Path & "\資料庫\" & str1 & "學期資料.xls"
If fsobj.FileExists(FileName) Then
      With CreateObject(FileName)
         wb.Sheets("Temp").Cells.Copy  .Sheets(SHname).Cells(1, 1)
         .Close True
      End With
End If
當 application.quit 後，FileName之各sheets  被隱藏了
應如何使它不隱藏  再.Close True
三.如何使A1.xls打開時不顯示功能列(*也就是說事前就已經設定好)
   VBA如何在B1.xls事前對A1.xls作事前設定

謝謝

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-6-12 14:55 | 只看該作者

回復 1# yangjie

Option Explicit
Sub Ex()
Dim FileName As String, E As Workbook
FileName = "D:\BOOK2.XLS"
With CreateObject(FileName)
'*** 顯示活頁簿是這樣嗎? *****
.Windows(.Name).Visible = True
'.Sheets(SHname).Cells.Copy wb.Sheets("Temp").Cells(1, 1)
.Close True
End With
End Sub
Sub 功能列()
功能列_Show True '顯示功能列
Stop
功能列_Show False '不顯示功能列
End Sub
Private Sub 功能列_Show(Msg As Boolean)
With Application
.DisplayFullScreen = Not Msg
.CommandBars.ActiveMenuBar.Enabled = Msg
End With
End Sub
Sub Sheets_隱藏()
Dim i As Integer
With ActiveWorkbook
.Protect Password:="1234", Structure:=True, Windows:=True '保護活頁簿的結構,視窗
.Unprotect Password:="1234" '活頁簿: 解除保護.
For i = 2 To .Sheets.Count '活頁簿至少要有一張工作表是可見的
Sheet1.Visible = xlSheetVeryHidden '值= 2 :vba 的工作表隱藏,需用vba 取消工作表隱藏
Next
.Protect Password:="1234", Structure:=True, Windows:=True
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

3^#

發表於 2014-6-13 23:54 | 只看該作者

回復 2# GBKEE
謝謝版大
Sheet1.Visible = xlSheetVeryHidden 與
Sheet1.Visible = false    一樣嗎?
又
Sub Ex()
Dim FileName As String, E As Workbook
FileName = ThisWorkbook.Path & "\資料庫\" & "97學年上學期資料.xls"
xlfilenam = Dir(FileName)
Dim fsobj As Object
Set fsobj = CreateObject("Scripting.FileSystemObject")
If fsobj.FileExists(FileName) Then
      With CreateObject(FileName)
            .Windows(xlfilenam).Visible = False ---------此行可否加密
         .Close True
      End With
End If

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

4^#

發表於 2014-6-14 00:21 | 只看該作者

回復 2# GBKEE
再請教GBKEE版大
這是自訂表單  已密碼控制流程
  Private Sub CommandButton1_Click()
If Label1.Caption = "" Or Label1.Caption = "0" Then
      Unload Me
      Exit Sub
End If
If Label1.Caption = "510510" Then
      Sheets("首頁").Cells(5, 12) = Label1.Caption
      Unload Me
Else
      TextBox1 = ""
      TextBox1.SetFocus
End If

End Sub
Private Sub TextBox1_Change()
If TextBox1 = "" Then
      Label1.Caption = TextBox1
      Exit Sub
End If
If Right(TextBox1, 1) <> "*" Then
      Label1.Caption = Label1.Caption & Right(TextBox1, 1)
End If
an = Len(TextBox1)
TextBox1 = String(an, "*")
End Sub
請教版大:
我的CommandButton1.caption 是"確定"
當TextBox1輸入了密碼好了按  "確定"鍵即可
   個人想不移動滑鼠  直接按  keyboard上"Enter"鍵  即可觸發  CommandButton1_Click
   應如何下語法

TOP

GBKEE