للقراءة فقط والطباعة لا

[مصطفى أبو العينين]

عندي ملف اكسيل وعاوز الغي موضوع الطباعة نهائي 

عملت له كل طرق الحماية 

وجعلت الملف للقراءة فقط برضة عملية الطباعة شغالة

عاوز الغي الطباعة نهائي للملف

[احمدزمان]

السلام عليكم

الكوود التالي يلغي الطباعة من كل اوراق الملف

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

و يوضع في thisworkbook

و

الغاء الطباعة من ورقة محددة

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = ("Sheet1") Then Cancel = True
End Sub

 

[سليم حاصبيا]

ضع هذا الماكرو

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
End Sub

اعتذر اخي احمد لم ار مشاركتك في هذا الموضوع الا بعد تحميل مشاركتي هذه

تم تعديل مارس 20, 2016 بواسطه سليم حاصبيا

[ياسر خليل أبو البراء]

طيب لو حد عنده فكرة بالأكواد ، وعرف الكود المسئول عن إلغاء الطباعة .. هيروح للكود ويعمل عليه Comment أو يحذفه ويطبع ..! وانتهت المشكلة بالنسبة له

عايزين حل ملوش حل .. يلا شدوا حيلكم

أنا معنديش طريقة لكن بحاول أفكر في طريقة .. وللأسف مش هلاقي لأن لكل فعل رد فعل مساوي له في المقدار ومضاد له في الاتجاه

كل طرق الحماية .. للأسف مآلها إلى الكسر

[سليم حاصبيا]

أخي ياسر

ممكن ان نستعمل هذين الكودين و ما عليك سوى تشفيرها بواسطة كلمة سر (اذا احببت التعديل غليها او الغائها)

و يا مين يجطر غلى باله ان يمسح الخلية  XFD1

Private Sub Workbook_Open()
 With Sheets("Sheet1").Range("xfd1")
    .Value = "D'ont print"
    .NumberFormat = ";;;"
 End With
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Sheets("sheet1").Range("xfd1").Value = "D'ont print" Then Cancel = True
End Sub

 

[ياسر خليل أبو البراء]

يا سلاااااااااام عليك يا أخي سليم

على أساس إنه مش هيقدر يفهم الكود ..نفس المشكلة ..حتى لو لم يقم بحذف الخلية XFD1 .. هيلغي سطر الطباعة وبس

If Sheets("sheet1").Range("xfd1").Value = "D'ont print" Then Cancel = True

لو شال دا ايه اللي هيحصل !! .. حتى لو لم يقترب من الخلية XFD1 ..

أعتقد أن اي حل بالأكواد لن يحل المشكلة بشكل نهائي ..!! لأن الأكواد قابلة دائماً للكسر وللتدمير أو على الأقل قابلة لأن تكون غير قابلة للتنفيذ إذا لم يمكن الماكرو ..!

[سليم حاصبيا]

1 دقيقه مضت, ياسر خليل أبو البراء said:

يا سلاااااااااام عليك يا أخي سليم

على أساس إنه مش هيقدر يفهم الكود ..نفس المشكلة ..حتى لو لم يقم بحذف الخلية XFD1 .. هيلغي سطر الطباعة وبس

If Sheets("sheet1").Range("xfd1").Value = "D'ont print" Then Cancel = True

لو شال دا ايه اللي هيحصل !! .. حتى لو لم يقترب من الخلية XFD1 ..

أعتقد أن اي حل بالأكواد لن يحل المشكلة بشكل نهائي ..!! لأن الأكواد قابلة دائماً للكسر وللتدمير أو على الأقل قابلة لأن تكون غير قابلة للتنفيذ إذا لم يمكن الماكرو ..!

ما تنساش ما قلته لك ان الكود يجب تشفيره بحيث لا يمكن الدحول اليه الا من خلال باسوورد

[ياسر خليل أبو البراء]

وبردو دي سهلة جداً وفيه بدل الطرق أكثر من طريقة

هات لي أجدعها ملف محمي بباسورد وأنا أفك لك حمايته !!

[سليم حاصبيا]

17 دقائق مضت, ياسر خليل أبو البراء said:

وبردو دي سهلة جداً وفيه بدل الطرق أكثر من طريقة

هات لي أجدعها ملف محمي بباسورد وأنا أفك لك حمايته !!

حل اخر (حيث ان الوقت يتعير كل ثانية)

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Range("xfd1") <> Date + Time Then Cancel = True
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$XFD$1" Then Range("a1").Select
If ActiveSheet.Name = ("Sheet1") Then
ActiveSheet.Range("$XFD$1") = Date + Time
End If
End Sub

 

[احمدزمان]

16 ساعات مضت, ياسر خليل أبو البراء said:

طيب لو حد عنده فكرة بالأكواد ، وعرف الكود المسئول عن إلغاء الطباعة .. هيروح للكود ويعمل عليه Comment أو يحذفه ويطبع ..! وانتهت المشكلة بالنسبة له

عايزين حل ملوش حل .. يلا شدوا حيلكم

أنا معنديش طريقة لكن بحاول أفكر في طريقة .. وللأسف مش هلاقي لأن لكل فعل رد فعل مساوي له في المقدار ومضاد له في الاتجاه

كل طرق الحماية .. للأسف مآلها إلى الكسر

السلام عليكم

صباح الخير

 

ايه الحكاية ياحبيب

لا تنسى

لكل شيء اذا ماتم نقصان

و لايوجد حل مالوش حل

 

و كل انسان ذكي يوجد اذكى منه

و لا اعتقد ان هناك انسان يستطيع عمل شيء كامل من جميع النواحي

ولكن

كلنا نجتهد فقط