أكواد تعمل على كامل المصنف

أكواد تعمل على كامل المصنف

هذه الأكواد البرمجية الكلية سوف تساعدك على التحكم وإدارة أوراق العمل بطريقة سهلة وحفظ الكثير من الوقت والجهد

كود اخفاء جميع أوراق العمل ما عدا ورقة العمل النشطة

الكود البرمجى كالتالي :

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub HideWorksheet()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> ThisWorkbook.ActiveSheet.Name Then
ws.Visible = xlSheetHidden
End If
Next ws
End Sub

إظهار جميع أوراق العمل المخفية

الكود البرمجى كالتالي :

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub UnhideAllWorksheet()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Visible = xlSheetVisible
Next ws
End Sub

حذف جميع أوراق العمل ما عدا ورقة العمل النشطة

الكود البرمجى كالتالي :

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub DeleteWorksheets()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.name <> ThisWorkbook.ActiveSheet.name Then
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
Next ws
End Sub

حماية جميع أوراق العمل

يمكنك حماية جميع أوراق العمل بكلمة مرور بتشغيل هذا الكود التالي يظهر لك مربع حوار ادخل كلمة المرور فيه
الكود البرمجي كالتالي :

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub ProtectAllWorskeets()
Dim ws As Worksheet
Dim ps As String
ps = InputBox("Enter a Password.", vbOKCancel)
For Each ws In ActiveWorkbook.Worksheets
ws.Protect Password:=ps
Next ws
End Sub

تغيير حجم جميع المخططات بكامل المصنف

يمكنك تغيير حجم كامل المخططات بكامل المصنف بإستخدام الكود البرمجي التالي
يمكنك التعديل عليه لكى يتناسب مع بياناتك أور كما تريد
الكود كالتالي :

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub Resize_Charts()
Dim i As Integer
For i = 1 To ActiveSheet.ChartObjects.Count
With ActiveSheet.ChartObjects(i)
.Width = 300
.Height = 200
End With
Next i
End Sub

إدراج أوراق عمل

بإستخدامك أو عند تشغيلك لهذا الكود يظهر لك مربع حوار ادخل عدد الأوراق التى تريد ادراجها بمصنف العمل
الكود كالتالي :

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub InsertMultipleSheets()
Dim i As Integer
i = InputBox("Enter number of sheets to insert.", "Enter Multiple Sheets")
Sheets.Add After:=ActiveSheet, Count:=i
End Sub

حماية ورقة العمل المحددة

الكود التالي يمكنك من حماية ورقة العمل النشطة كل ما عليك أن تضع كلمة المرور مكان جملة (  mypassword   ) داخل الكود
ومن ثم يمكنك الإشارة إليه بوضع اسم الكود فى حدث المصنف ككل أو حدث شيت معين ترغب فى حماية فى حدث ( Active  ) لكى يقوم بالعمل المثالي المطلوب
الكود كالتالي :

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub ProtectWS()
ActiveSheet.Protect "mypassword", True, True
End Sub

حذف جميع أوراق العمل الفارغة

يمكنك هذا الكود من حذف جميع أوراق العمل الفارغة مع التأكد من ذلك
الكود كالتالي :

'Permits any person to use this code provided that the source is mentioned
'https://elshriefacademy.blogspot.com

Sub deleteBlankWorksheets()
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating= False
Application.DisplayAlerts= False
For Each Ws In Application.Worksheets
If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
Ws.Delete
End If
Next
Application.ScreenUpdating= True
Application.DisplayAlerts= True
End Sub