@פלורידה אכן צדקת בדבר אחד (מכאן שכל המתגאה - הקב"ה משפילו...), השורה הראשונה בלבד, היינו הגדרת הקבוע
Private Const ....
מוכרחה לבוא בראש המודול. שאר הקוד - עובד בכל מקום.
ולשאלתך, ודאי שאפשר ליישם כמו בדוגמא. תעתיק את הפונקציות שלו UIHide ו- UIShow ורק תשנה את הקוד כך:
Private Const MY_WORKBOOK_NAME = ...
Sub UIHide() ....
....
End Sub
Sub UIShow() ...
...
End Sub
Private Sub Workbook_Activate()
If (ActiveWorkbook.Name = MY_WORKBOOK_NAME) Then
UIHide
Else
UIShow
End If
End Sub
Private Sub Workbook_Deactivate()
UIShow
End Sub
