ماهي طريقة اخفاء اسماء الصفحات واشرطة الادوات اثناء تشغيل الملف وكلمة

[الو11111في]

السلام عليكم ورحمة الله وبركاتة

في البداية اشكركم على مساعدتكم لي جزيل الشكر والتقدير

ثانيا الحمد لله مشروعي على وشك الانتهاء لكن باقي كم شئ لااعرفه لذا لجأت الى الله ثم اليكم

ارفق الملف وفيه اريد

1 - طريقة اخفاء اسماء الصفحات اسفل (ورقة1 , ورقة 2 sheet1 ,sheet2 ....الخ ) جميع الصفحات لااريدها ان تظهر لي .

2- اخفاء عمود وصف تحديد موقع الخليه الحروف والارقام من A الى z والارقام كذلك لااريدها ان تظهر اثناء تشغيل الملف , وجميع اشرطة الادوات تنسيق وقياسي وغيرها.

3 - عمل كلمة مرور . لاني جربت من اداوت ثم حماية ووضعت كلمة مرور للاستعلام والتعديل لكن المشكله انه حينما ادخل بكلمة المرور للقراءة فقط استطيع ان احفظ الملف ككل في مكان آخر .

ارجو مساعدتي وآآآسف

Book2.rar

[madomado]

أخي العزيز قمت بتلبية طلباتك رقم واحد ورقم ثلاثة

وأعذرني لم أفهم طلبك الثاني هل تقصد إخفاء كل الخلايا أم ماذا ؟؟

لقد أرفقت الملف بعد تلبية الطلبات

أو على هذا الرابط أيضاً

http://rapidshare.com/files/128286224/Book2.rar.html

تحياتي لك أحي العزيز

Book2.rar

[الو11111في]

مشكور اخوي madomado

لكن ماهي كلمة المرور اخوي

اما الفقره الثانية مشكور اخوي الله يعافيك عرفت الحل

لكن اريد اخفاء اشرطة الادوات كلها مع تشغيل الملف (قياسي وتنسيق وغيرها....الخ)

اشكرك اخوي

تم تعديل يوليو 9, 2008 بواسطه الو11111في

[madomado]

ههههههههههههههههههههههه

سامحني نسيت

كلمة السر هي 123

[madomado]

بالنسبة لشرح ما قمت به وهو بسيط للغاية

لإخفاء الصفحات من ال tab

ندخل على tools ثم option ثم من خانة ال view

نحذف علامة صح من أمام سطر sheet tabs

وبالنسبة لكلمة السر

tools

ثم

option

ثم

security

ثم ضع كلمة السر التي تحلو لك ثم تقوم بتأكيدها

سامحني على التأخير مرة أخرى كنت في عملي طوال النهار وليس عندي إنترنت هناك

أشكرك أخي الكريم

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

اخي الفاضل جرب المرفق

تم استخدام الكود التالي

Sub auto_open()
'تكبير العرض في وندوذ الى مكبر
    Application.WindowState = xlMaximized
'عرض ملء الشاشة
    Application.DisplayFullScreen = True
'الصفحة الحالية اخفاء رئوس الأعمدة و اسماء الأوراق وغير ذلك
    With ActiveWindow
        .DisplayGridlines = False
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
    End With
End Sub

و الذي سوف يقوم بتنفيذ المطلوب في كل مرة يتم فيها فتح الملف

ان شاء الله يكون هذا المطلوب

[الو11111في]

مشكورين اخواني madomado & احمد يعقوب

اعذروني على التأخير لاني بعكسك اخوي madomado مااعرف النت الا بالعمل :)

تحياتي واكرر لكم خالص شكري وتقديري

[madomado]

لا شكر على واجب

وسعادتي فعلاً لو أفادك حقاً

جزاك الله خيراً وزادك علماً أخي العزيز