Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


62394 / 76738 ←次へ | 前へ→

【18951】Re:Workbook_Open()でどうすればうまく動作するのでしょうか?
質問  タフマン  - 04/10/17(日) 14:42 -

引用なし
パスワード
   keinさん何度もすいません、有難うございます。
おしゃる通りに書き換えてみたのですがやはりUserForm1.Showで
止まってしまいます。

Private Const fPASSWORD As String = "Passeord" & vbBack

Private Sub HideWindow()
  Dim i As Long
  For i = Windows.Count To 2 Step -1
    Windows(i).Close
  Next
  Windows(1).Visible = False
  Protect fPASSWORD, False, True
End Sub
Private Sub ShowWindow()
  Unprotect fPASSWORD
  Windows(1).Visible = True
  Saved = True
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
  If Saved Then Exit Sub
  Select Case MsgBox("'" & Name & "' への変更を保存しますか?", vbExclamation Or vbYesNoCancel)
  Case vbYes
    HideWindow
    Application.EnableEvents = False
    Save
    Application.EnableEvents = True
  Case vbNo
    Saved = True
  Case vbCancel
    Cancel = True
  End Select
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  HideWindow
  Application.EnableEvents = False
  Save
  Application.EnableEvents = True
  ShowWindow
  Cancel = True
End Sub
Private Sub Workbook_Open()

  UserForm1.Show
  Application.WindowState = xlMinimized
  
End Sub

実行時エラー'1004':
'Worksheets'メソッドは失敗しました:'Global'オブジェクトと
言うエラーメッセージが出ます。
0 hits

【18946】Workbook_Open()でどうすればうまく動作するのでしょうか? タフマン 04/10/17(日) 12:22 質問
【18948】Re:Workbook_Open()でどうすればうまく動作... Kein 04/10/17(日) 13:03 回答
【18949】Re:Workbook_Open()でどうすればうまく動作... タフマン 04/10/17(日) 13:42 質問
【18950】Re:Workbook_Open()でどうすればうまく動作... Kein 04/10/17(日) 13:59 回答
【18951】Re:Workbook_Open()でどうすればうまく動作... タフマン 04/10/17(日) 14:42 質問
【18952】Re:Workbook_Open()でどうすればうまく動作... Kein 04/10/17(日) 15:16 発言
【18954】Re:Workbook_Open()でどうすればうまく動作... タフマン 04/10/17(日) 15:46 質問
【18955】Re:Workbook_Open()でどうすればうまく動作... [名前なし] 04/10/17(日) 15:51 回答
【18957】Re:Workbook_Open()でどうすればうまく動作... タフマン 04/10/17(日) 16:43 質問
【18958】Re:Workbook_Open()でどうすればうまく動作... [名前なし] 04/10/17(日) 20:16 発言
【18959】Re:Workbook_Open()でどうすればうまく動作... Kein 04/10/17(日) 20:19 回答
【18961】Re:Workbook_Open()でどうすればうまく動作... タフマン 04/10/17(日) 21:22 お礼
【18962】Re:Workbook_Open()でどうすればうまく動作... ちゃっぴ 04/10/17(日) 22:01 発言

62394 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free