سلام
آیا کدی وجود داره که همیشه صفحه در زوم 100 درصد باز بشه و یه هیچ عنوان نشه زوم را کم و زیاد کرد؟
آیا کدی وجود داره که همیشه صفحه در زوم 100 درصد باز بشه و یه هیچ عنوان نشه زوم را کم و زیاد کرد؟
Private Sub Workbook_Open()
Dim w As Long, ow As Long
On Error GoTo Safe_Exit
Application.ScreenUpdating = False
ow = ActiveSheet.Index
For w = 1 To Worksheets.Count
Worksheets(w).Activate
ActiveWindow.Zoom = 100
Next w
Worksheets(ow).Activate
Safe_Exit:
Application.ScreenUpdating = True
End Sub
کامنت