- Katılım
- 11 Mayıs 2006
- Mesajlar
- 708
- Excel Vers. ve Dili
- Ofis 2016 64 Bit Türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Makro1()
Cells.Select
Selection.Locked = False
Selection.FormulaHidden = False
Range("E3:E7,C10:E11,D13:E13").Select
Selection.Locked = True
Selection.FormulaHidden = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub