ガンプラを如何に手軽にかっこよく作るか[RX78-F00]

RX-78という英語と数字の組み合わせで、ガンダムを想像できるか否かで、ガンダムオタクか否かを判断できるのではないでしょうか。

私は、「ガンダムの型式番号は何？」と聞かれれば、「アール。。。RX…うーん。」となるくらいのガンダム好きです。

ああ

Sub AdminLoginCheck()
Dim adminID As String
Dim adminPass As String

' LoginシートからIDとパスワードを取得
adminID = Sheets("Login").Range("B2").Value
adminPass = Sheets("Login").Range("B3").Value

' 管理者のIDとパスワード（ハードコード・必要なら暗号化も検討）
If adminID = "admin" And adminPass = "secret123" Then
    Sheets("Database").Visible = True
    MsgBox "管理者認証に成功しました。Databaseシートを表示します。", vbInformation
Else
    MsgBox "IDまたはパスワードが違います。", vbExclamation
End If

End Sub

Sub Logout()
Sheets(“Database”).Visible = xlSheetVeryHidden
MsgBox “ログアウトしました。Databaseシートを非表示にしました。”, vbInformation
End Sub