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

• #14499 Delila_1 veterán #26949760 #14498

  Új Válasz 2012-07-31 19:48:57 #14499

  Ú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

  

  Delila_1

  veterán

  válasz #26949760 #14498 üzenetére

  Rajzold meg a jelölőt az Űrlap eszköztárról. Modulba vidd be a makrót.

  Sub Jelölőnégyzet1_Kattintáskor()
  Dim lap As Integer
  Calculate
  
  For lap = 1 To Worksheets.Count
  Sheets(lap).Select
  Cells.Locked = True
  ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
  Next
  End Sub

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