[發問] 為何各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作事前設定

謝謝

樓主熱帖

yangjie

中學生 Rank: 2

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

2^#

發表於 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

3^#

發表於 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

yangjie

中學生 Rank: 2

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

4^#

發表於 2014-6-14 10:29 | 顯示全部帖子

回復 5# GBKEE
謝謝GBKEE
請教
取消如右邊的隱藏 Sheet1.Visible = xlSheetVeryHidden
用 Sheet1.Visible = True 可有其他知受限?

TOP