kendı çalışma kıtabını userforma nasıl gosterebılırız
Kod:
Private Sub Workbook_Open()
If Application.Workbooks.Count > 1 Then
ad = ThisWorkbook.Name
Windows(ad).Visible = False
UserForm1.Show 0
Else
ad = ThisWorkbook.Name
Windows(ad).Visible = False
Application.Visible = False
UserForm1.Show 0
End If
End Sub