Új hozzászólás Aktív témák

• #1833 sztanozs veterán vilag #1832

  Új Válasz 2012-09-06 12:36:32 #1833

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz vilag #1832 üzenetére

  Egyrészt, ha Excel Addint csinálsz, akkor nem látszik a worksheet, de tud futni kód.
  Másrészt el tudod takni kicsibe (minimized) a worksheetet, de így is látható marad (és megszünteti a többi ablak "Maximized" állapotát
  Harmadrészt megnyitás után is át tudod rakni Add-in típusba, viszpnt úgy nem fogod tudni menteni a save gombbal, csak formról.

  Add-in-be átrakni megnyitáskor:
  Private Sub Workbook_Open()
  Me.IsAddin = True
  End Sub

  Mentést viszont kézzel kell csinálnod, mert addin típusú excel-t nem lehet xls/xlsm-be menteni, csak xla-ba. Így mentés előtt kézzel ki kell szedni az Addin property-t (ami láthatóvá teszi a sheet-et - de jól lekódolva csak a mentés idejére).

  ThisWorkbook:
  Private Sub Workbook_Open()
  Me.IsAddin = True
  Set UserForm1.App = Me
  UserForm1.Show False
  End Sub
  
  Public Sub WB_Save()
  Me.IsAddin = False
  Me.Save
  Me.IsAddin = True
  End Sub

  UserForm:
  Public App As Object
  
  Private Sub CommandButton1_Click()
  App.WB_Save
  End Sub

Új hozzászólás Aktív témák