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

• #20909 gyga senior tag

  Új Válasz 2014-03-12 12:32:35 #20909

  Ú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

  

  gyga

  senior tag

  üdv

  van ez a kis kódom. ez megakadályozza a mentést és csak a mentést engedi.

  1. tovább kellene fejleszteni hogy a másként mentett táblát már lehessen normálisan menteni.

  'Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

  'If SaveAsUI = False Then

  ' Cancel = True

  ' MsgBox "You cannot save this workbook. Use Save As"

  'End If

  'End Sub

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