پرسش بهترین کد یوزر فرم ورود در اکسل

[ghader]

با سلام خدمت اساتید بزرگوار
بنده از فرم اتوماتیک در هنگام باز شدن فایل اکسل استفاده کردم ولی وقتی اتوماتیک فرم بارگزاری میشه بیرون از فرم نشانگر ماوس (چرخونک ) همش میچرخه می خواهم این چرخونک (با به عبارت بهتر نشانگر ) نچرخد چه کد مناسبی در هنگام بازکردن اکسل بنویسم در ThisWorkbook با تشکر فرآوان
کدهای بنده هنگام ورود

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
Sheet1.Visible = xlSheetVeryHidden
  Sheet2.Visible = xlSheetVeryHidden
  Sheet3.Visible = xlSheetVeryHidden
  Sheet5.Visible = xlSheetVeryHidden
  Sheet6.Visible = xlSheetVeryHidden
  Sheet7.Visible = xlSheetVeryHidden
    On Error Resume Next
  Application.ActiveWindow.Close savechanges:=True
      On Error GoTo 0
   End Sub
   Private Sub Workbook_Deactivate()
On Error Resume Next
      With Application
          .DisplayFullScreen = False
          .CommandBars("Worksheet Menu Bar").Enabled = True
  Application.Visible = False
      End With
   
  End Sub
   
  Private Sub Workbook_Open()
  Application.ActiveWorkbook.Application.Visible = False
  On Error Resume Next
   
   
      With Application
         .DisplayFullScreen = True
        .CommandBars("Worksheet Menu Bar").Enabled = False
         End With
      Application.DisplayFormulaBar = False
     ActiveWindow.DisplayHeadings = False
      ActiveWindow.DisplayGridlines = False
  '**
  Sheet1.Visible = xlSheetVeryHidden
  Sheet2.Visible = xlSheetVeryHidden
  Sheet3.Visible = xlSheetVeryHidden
  Sheet5.Visible = xlSheetVeryHidden
  Sheet6.Visible = xlSheetVeryHidden
  Sheet7.Visible = xlSheetVeryHidden
   On Error GoTo 0
  Application.ActiveWorkbook.Application.Visible = True
  User_Admin.Show
  Application.ScreenUpdating = True
  End Sub

[a.dal65]

اگه امکانش هست فایلتونو قرار بدید
من مشکلتونو کامل متوجه نشدم ولی اگه میخواهید نشانگر موس رو تغییر بدید
Application.Cursor = xlWait
Application.Cursor = xlDefault

[ghader]

با سلام و ممنون بابت لطف شما منظورم دقیقا شکل ماوس در خارج از فرم در حالت عادی نباید چرخونک داشته باشد که عکسش رو می فرستم خدمتتون با تشکر

[امين اسماعيلي]

ba dr0o0o0oo0d

aval inke, hadafeton chie, mikhai vaghti excel baz mishe faghat formeto bebini va hame shit ha makhfi bashan, agar in karo mikhai anjam bedi ke yeseri kodat ziadin, in ke micharkhe vase man pish nayomad, ama location zaher shodan formet benazaram jash eshtebas. dovoman inke be nazar mirese hame shithato makhfi kardi, yani shiti be halate visible vase khodet nazashti? agar intorie ke yejaye karetam inja milange.

Application.ScreenUpdating = True chera to code hat neveshti, ghablesh ke offesh nakarde bodi ke bekhai onesh koni
UserForm1.Show ro biaresh bala bad az on error next resume. va inke yadet bashe to formet ye button ba code zaher shodane excel dashte bashi va dar zemn ye shit ke hide nabashe ke vaghti zahe mishe belakhre ye shiti bayad select beshe ro hava ke nemishe, mishe