وعليكم السلام
ضع هذا الكود فى حدث this workbook
Private Sub Workbook_Open()
MsgBox "Welcome to Officena"
End Sub
وعليكم السلام
ضع هذا الكود فى حدث this workbook
Private Sub Workbook_Open()
MsgBox "Welcome to Officena"
End Sub
أو هذا الكود
Private Sub Workbook_Open()
MsgBox "You have just opened " & ThisWorkbook.Name
End Sub