05-01-24, 12:21 AM
كود :
' تحديد عمود K وحمايته في ورقة العمل
With Worksheet.Columns("K:K")
.Locked = True ' قفل العمود
.Hidden = True ' إخفاء العمود
.ColumnWidth = 0 ' تحديد عرض العمود بصفر لإخفائه بشكل كامل
End With
' حماية ورقة العمل بكاملها لتفعيل الحماية
Worksheet.Protect("كلمة المرور")