Ms. Ghada قام بنشر يناير 3, 2015 مشاركة قام بنشر يناير 3, 2015 السلام عليكم و رحمة الله و بركاته كيف يمكن حماية شيت داخل ملف العمل من النسخ او القص و بكلمة سر ارجو الافادة و جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 للرفع رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 3, 2015 الكاتب مشاركة قام بنشر يناير 3, 2015 هو ما ينفعش و لا ايه رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 ارجو من اسادة الافاض التفضل بالرد هل يمكن ان يتم هذا الاجراء ام لا رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 (معدل) ارجو من السادة الافاضل التفضل بالرد هل يمكن ان يتم هذا الاجراء ام لا تم تعديل يناير 4, 2015 بواسطه Ms. Ghada رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 الاخت الكريمة راجعى الرابط التالى http://www.officena.net/ib/index.php?showtopic=40743&hl=%2B%D9%85%D9%86%D8%B9+%2B%D8%A7%D9%84%D9%86%D8%B3%D8%AE المشاركة رقم 4 كود للرائع عبدالله المجرب تقبلى تحياتى رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 (معدل) عذرا اخي الفاضل هل اقوم بعمل الخطوات التي سبقت ان تفضلت بشرحها لي هنا ( ادراج مديول ) http://www.officena.net/ib/index.php?s=974b493a8f234f1d52fd9d66f9189ad7&showtopic=58010 تم تعديل يناير 4, 2015 بواسطه Ms. Ghada رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 الاخت الكريمة نصيحه مهمه جدا جدا اعملى نسخ للملف اللى انتى عايزة تشتغلى علية واشتغلى على الكوبى علشان لو حصل اى شئ يكون الاصلى موجود ولو ظبط الكود يبقى تمام ثانيا الخطوات 1- اول شئ هنعملى ادراج مودويل جديد وتنسخى الكود ده فيه Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "Sorry! Cutting, copying and pasting have been disabled in this workbook!" End Sub ثانيا هتنسخى الكود التالى وتلصقية فى حدث ThisWorkbook حدث ThisWorkbook اتبعى تعليمات الصورة Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then Me.Save Cancel = True End If End Sub واهم شئ تعملى على نسخه من الملف وليس الملف الاصلى الين التاكد من ان الكود تمام زى ما انتى عايزة جربى وعلمينى بالنتيجة تقبل تحياتى رابط هذا التعليق شارك More sharing options...
alsamalapi قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 شكرا لكم رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 بارك الله فيك جااااري التنفيذ رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 نفذت الخطوات السابقة هل اغلق الان و اجرب ؟ وكيف اضع الباسورد اذا ما اردت انا النسخ بعد ذلك رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 الكود هو بدون باسورد يمكن تعطيل الكود اذا اردتى النسخ اهم شئ انتى شغاله على الكوبى ولا على الاصلى رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 عملت على الكوبي زي ما حضرتك قلت بس تعطيل الكود بيكون ازاي؟ رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 طيب اقفلى الملف وجربى افتحى وحاولى اعملى نسخ او حذف وشوفى الكود تمام او لا رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 للاسف اتنسخ معايا و اتحذف كمان رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 انتى حطيت الكود الاول فى مودويل جديد والكود الثانى فى حدث الملف ThisWorkbook ( اعملى دبل كليك على ThisWorkbook هيفتح معك شاشة بيضه انسخى الكود الثانى فيها) رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 فعلا كده في خطا عندي طيب This workbook بنظهرها ازاي رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 لما تعملى ALT +f11 هيفتح معك محرر الاكواد شوفى الصورة دى لما تعملى دبل كليك على ThisWorkbook هيفتح معك شاشة بيضه انسخى الكود الثانى فيها رابط هذا التعليق شارك More sharing options...
Ms. Ghada قام بنشر يناير 4, 2015 الكاتب مشاركة قام بنشر يناير 4, 2015 اخي الكريم انا عملت الخطوات دي بالظبط : 1= فتحت ملفي وضغطت Alt+F11 2- من قائمة Insert اختارت Moduel ظهرت شاشة بيضاء لصق عليها الكود الاول 3- ضغط دبل كليك على This workbook فظهرت شاشة بيضاء اخرى لصق عليها الكود الثاني 4- ثم اغلقت الملف و فتحته مرة اخرى و حاولت النسخ و الحذف وجدت الامرين قد تم تنفيذهما فهل ما قمت بتنفيذه خطأ رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 السلام عليكم عند وضع أكواد فى ملف ننتبه الى طريقة الحفظ عشان الأكواد تفضل معانا فى الملف فلا تحذف ونبقى ما عملناش حاجة بعد وضع الأكواد يجب الحفظ باسم معين و بصيغة معينة ( نختار من نوع الـ save as type الخيار enabled macro ) أعتقد ان هذا قد يكون سبب الخطأ تحياتى رابط هذا التعليق شارك More sharing options...
مختار حسين محمود قام بنشر يناير 4, 2015 مشاركة قام بنشر يناير 4, 2015 (معدل) فيه طريقة بدون أكواد يدوية يعنى قد تكون أسهل الآن من قائمة review نختار protect workbook فلى المربع الحوارى ضعى كلمة السر ثم أكديها ثانية ً فى المربع الحوارى التالى عمل حفظ من save هذا يمنع النسخ والقص والاخفاء واعادة التسمية بالنسبة للشيتات أيضا يمكن عمل حماية أخرى للشيتات من من قائمة review نختار protect sheet من المربع الحوارى اكتبى كلمة سر واختارى من المربع الحوارى ماتريدينه ثم أكدى كلمة السر ثانية ً فى المربع الحوارى التالى ثم حفظ تم تعديل يناير 4, 2015 بواسطه مختار حسين محمود رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر يناير 5, 2015 مشاركة قام بنشر يناير 5, 2015 الاخت الكريمه الخطوات اللى ذكرتيه صحيح لكن مش عارفه انتى طبقتيها صح ام لا عموما اتبعى الخطوات التالية 1- حذف الكود اللى موجود فى حدث ThisWorkbook هتعملى دبل كليك على ThisWorkbook هتلاقى الكود اللى انتى قمتى بنسخه قبل كدا المطلوب بقى تحذفيه معلش هتعبك معايا (بالبلدى مش عايزين الخطوة دى مستغنيين عنها ) كدا حدث ThisWorkbook شاشة بيضا رجعت تانى بدون ما يكون فيها اى كود 2- المفترض انى عندك كودين دلوقتى كل كود فى مودويل صح طيب دبل كليك على كل مودويل واحذفى الكود اللى فيه تمام كدا الملف بدون اكواد هتردى تقولى دا فى كود من ضمنهم بتاع اخفاء الاشرطه والقوائم صح عادى احذفيهم بس 3- قومى بنسخ الكود التالى فى اى مودويل من اللى فاضيين انتى عندك 2 انسخى الكود ده والصقيه فى واحد من اى مودويل Public xx As Integer Public x As Integer Sub Auto_Open() Application.ScreenUpdating = False kh_wVisible True Application.ScreenUpdating = False ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" Call ToggleCutCopyAndPaste(False) Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub Sub Auto_Close() Dim i As Integer kh_wVisible False ThisWorkbook.Close Not CBool(ThisWorkbook.Saved) Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Call ToggleCutCopyAndPaste(True) End Sub Sub kh_wVisible(ibol As Boolean) Dim nBook As String nBook = ThisWorkbook.Name With Windows(nBook) If .Visible = Not ibol Then .Visible = ibol End With End Sub Sub unhide_toolbar() xx: Dim x x = InputBox("لأظهار القوائم يتطلب كلمة مرور" & Chr(13) & "الرجاء ادخال كلمة مرور", "كلمة مرور") If IsNull(x) Or x = "" Then GoTo xx If x = "111" Then ActiveWindow.DisplayWorkbookTabs = True Application.DisplayFormulaBar = True Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)" Else MsgBox "كلمة المرور غير صحيحه" & Chr(13) & " الرجاء اعادة ادخال كلمة المرور ", vbOKOnly End If End Sub Sub hide_toolbar() ActiveWindow.DisplayWorkbookTabs = False Application.DisplayFormulaBar = False Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",false)" End Sub Sub تفعيل_النسخ() xx: Dim x x = InputBox("لتفعيل النسخ يتطلب" & Chr(13) & "الرجاء ادخال كلمة المرور", "كلمة مرور") If IsNull(x) Or x = "" Then GoTo xx If x = "111" Then Call ToggleCutCopyAndPaste(True) Else MsgBox "كلمة المرور غير صحيحه" & Chr(13) & " الرجاء اعادة ادخال كلمة المرور ", vbOKOnly End If End Sub Sub منع_النسخ() Call ToggleCutCopyAndPaste(False) End Sub 4-قومى بنسخ الكود التالى والصقيه فى المودويل التانى Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "نأسف تم تعطيل النسخ واللصق والحذف بالملف!" End Sub 5-انتى كان عندك زرين واحد بتاع اظهار القوائم والثانى بتاع اخفاء القوائم دلوقتى هتعملى زرين كمان علشان يكونو 4 ازرار الزرين الجداد دول واحد هتعينى علية ماكرو تفعيل_النسخ ( يعنى هتقفى على الزر كليك يمين هتظهر قائمة اختارى تعيين ماكرو ثم هتظهر قائمة اختارى تفعيل_ النسخ) والثانى هتعينى عليه ماكرو منع _النسخ ( يعنى هتقفى على الزر كليك يمين هتظهر قائمة اخارى تعيين ماكرو ثم هتظهر قائمة اختارى منع_ النسخ) جربى وعلمينى بالنتيجة تقبلى تحياتى مرفق ملف للتطبيق اخفاء شريط الصفحات - Copy.zip رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 5, 2015 مشاركة قام بنشر يناير 5, 2015 وفقك الله الى ما يحبه ويرضاه 1 رابط هذا التعليق شارك More sharing options...
سيف الدين حسام قام بنشر يناير 5, 2015 مشاركة قام بنشر يناير 5, 2015 شكرا لكل من فام وساهم وشارك فى هذا الصرح العلمى الكبير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان